home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / TestFiles / TestMousePort < prev    next >
Text File  |  1998-11-28  |  991b  |  48 lines
  1. mp <- GamePort new
  2. n  <- 0
  3.  
  4. mp openGamePort: 1 named: 'Mouse1'
  5.  
  6. mp setControllerType: 1 "GPCT_MOUSE = 1"
  7.  
  8. mp clearGamePortBuffer
  9. mp setTimeTransition:   600 " 60Hz * 10 sec    "
  10. mp setKeyTransition:    3   "Up & down presses"
  11. mp setXDeltaTransition: 1
  12. mp setYDeltaTransition: 1
  13.  
  14. n <- mp getTriggerTime
  15. ('getTriggerTime = ', n) print
  16.  
  17. n <- mp getTriggerKeys
  18. ('Trigger Keys   = ', n) print
  19.  
  20. n <- mp getTriggerXDelta
  21. ('TriggerDeltaX  = ', n) print
  22.  
  23. n <- mp getTriggerYDelta
  24. ('TriggerDeltaY  = ', n) print
  25.  
  26. n <- mp getButtonCode
  27. ('Button Code    = ', n) print
  28.  
  29. n <- mp getQualifiers
  30. ('Qualifiers     = ', n) print
  31.  
  32. n <- mp getXPos
  33. ('X position     = ', n) print
  34.  
  35. n <- mp getYPos
  36. ('Y position     = ', n) print
  37.  
  38. mp waitForQualifier: 16rC000 "wait for left mouse + relative mouse."
  39. mp waitForButton:    16r68   "wait for left mouse button."
  40.  
  41. "x & y positions are + & - values.  -x = left movement, -y = movement."
  42.  
  43. mp waitForXPos: 5
  44. mp waitForYPos: 12
  45.  
  46. mp closeGamePort
  47. 'Mouse1 now closed!' print
  48.